home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / MT2ToolKit 1.0b1 / Trivial / MenuComm.Trivial < prev    next >
Text File  |  1995-09-23  |  266b  |  16 lines
  1.  
  2. {%% Generation option: -m}
  3.  
  4. PROCEDURE DoMenuCommand(event: EventRecord; var quit : Boolean);
  5.  
  6. VAR
  7.   menuResult: longint;
  8.   menu,mitem: integer;
  9.  
  10. BEGIN
  11.   menuResult:=MenuSelect(event.where);
  12.   menu:=HiWord(menuResult);
  13.   mitem:=LoWord(menuResult);
  14.   
  15.   CASE menu OF
  16.